home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / gfx / fract / fu1_61.lha / Install-FU < prev    next >
Text File  |  1995-06-03  |  3KB  |  113 lines
  1. ; FractalUniverse -------------------------------------------------------------------------------------------
  2. (MESSAGE 
  3.     "\n\nWillkommen zur Installation von FractalUniverse !\n\n"
  4. )
  5.  
  6. (SET @default-dest
  7.     (ASKDIR
  8.         (PROMPT "Bitte Zielverzeichnis aussuchen !\nEin Verzeichnis mit dem Namen FU wird angelegt !")
  9.         (HELP "Hier können Sie auswählen, wohin Sie das Programm installeren möchten")
  10.         (DEFAULT @default-dest)
  11.     )
  12. )
  13. (MESSAGE "\n\nBitte stellen Sie sicher, daß auf der Zielpartition\n 0.5 Mb-Speicher frei ist !")
  14.  
  15. ; falls nicht vorhanden, Verzeichnis anlegen ----------------------------------------------------------------
  16. (SET @default-dest (TACKON @default-dest "FU"))
  17. (SET fu-dest @default-dest)
  18. (IF (= (EXISTS fu-dest) 0)
  19.     (MAKEDIR fu-dest (INFOS))
  20. )
  21.  
  22. ; Fonts kopieren --------------------------------------------------------------------------------------------
  23. (COMPLETE 8)
  24. (COPYFILES
  25.     (SOURCE "Fonts/")
  26.     (DEST "FONTS:")
  27.     (ALL)
  28. )
  29.  
  30. ; Farben kopieren -------------------------------------------------------------------------------------------
  31. (COMPLETE 10)
  32. (SET fusub-dest (TACKON fu-dest "Colors"))
  33. (COPYFILES
  34.     (SOURCE "colors/")
  35.     (DEST fusub-dest)
  36.     (ALL)
  37.     (INFOS)
  38. )
  39.  
  40. ; Formeln kopieren ------------------------------------------------------------------------------------------
  41. (COMPLETE 25)
  42. (SET fusub-dest (TACKON fu-dest "Formulas"))
  43. (COPYFILES
  44.     (SOURCE "Formulas/")
  45.     (DEST fusub-dest)
  46.     (ALL)
  47.     (INFOS)
  48. )
  49.  
  50. ; Areas kopieren --------------------------------------------------------------------------------------------
  51. (COMPLETE 40)
  52. (SET fusub-dest (TACKON fu-dest "Areas"))
  53. (COPYFILES
  54.     (SOURCE "Areas/")
  55.     (DEST fusub-dest)
  56.     (ALL)
  57.     (INFOS)
  58. )
  59.  
  60. ; ARexx-Scripte ---------------------------------------------------------------------------------------------
  61. (COMPLETE 55)
  62. (SET fusub-dest (TACKON fu-dest "Rexx"))
  63. (COPYFILES
  64.     (SOURCE "Rexx/")
  65.     (DEST fusub-dest)
  66.     (ALL)
  67.     (INFOS)
  68.  
  69. ; Versionsauswahl -------------------------------------------------------------------------------------------
  70. (COMPLETE 70)
  71. (SET pver
  72.     (ASKCHOICE
  73.         (PROMPT "Bitte wählen Sie die zu installierende Programmversion aus !")
  74.         (HELP "Die Version ist von Ihrer verwendeten Computerhardware abhängig !")
  75.         (CHOICES
  76.             "68000"
  77.             "68030-881"
  78. ;            "68040-(881)"
  79.         )
  80.         (DEFAULT 0)
  81.     )
  82. )
  83. (IF (= pver 0)
  84.     (COPYFILES
  85.         (SOURCE "FU-Install:fu/fu.68000")
  86.         (DEST fu-dest)
  87.         (NEWNAME "FractalUniverse")
  88.     )
  89. )
  90. (IF (= pver 1)
  91.     (COPYFILES
  92.         (SOURCE "FU-Install:fu/fu.68030-881")
  93.         (DEST fu-dest)
  94.         (NEWNAME "FractalUniverse")
  95.     )
  96. )
  97. ;(IF (= pver 2)
  98. ;    (COPYFILES
  99. ;        (SOURCE "FU-Install:fu/fu.68040-881")
  100. ;        (DEST fu-dest)
  101. ;        (NEWNAME "FractalUniverse")
  102. ;    )
  103. ;)
  104. (COPYFILES
  105.     (SOURCE "FU/FractalUniverse.info")
  106.     (DEST fu-dest)
  107. )
  108.  
  109. ; Fertig ----------------------------------------------------------------------------------------------------
  110. (EXIT
  111.     "\n\nFU konnte erfolgreich installiert werden.\n"
  112.     "Bitte schlagen Sie im Handbuch nach, um zu erfahren wie das Programm bedient und gestartet wird.\n"
  113. )